home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / DTMedia / Aldus Persuasion / INTERACTIVE / INTERACTIVE.rsrc / TEXT_1158.txt < prev    next >
Text File  |  1988-11-03  |  357b  |  18 lines
  1. \#macro to detect icon drag
  2. IF NOT STILLDOWN THEN 425
  3. goto 431
  4. puppet sprite 14 true
  5. set &V = mousev - &T
  6. set &S = (mouseh - spriteh[10])
  7. set &T = (mousev - spritev[10])
  8. set &H = mouseh
  9. set &V = mousev
  10. IF STILLDOWN THEN SKIP 3
  11. 425
  12. EXIT
  13. IF ABS(mouseH-&H) > 1 THEN SKIP 3
  14. IF ABS(mouseV-&V) > 1 THEN SKIP 2
  15. SKIP -5
  16. set &A = 1
  17. WHEN MOUSEUP THEN CALL c17ÀáÀá
  18.